home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / pubpoint_add.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  22.1 KB  |  584 lines
  1. ∩╗┐<%@ Language=VBScript CODEPAGE=65001 %>
  2. <!--#include file="include/wmsConstants.inc"-->
  3. <!--#include file="include/wmsLocStrings.inc"-->
  4. <!--#include file="include/wmsCommon.inc"-->
  5. <!--#include file="include/wmsHeader.inc"-->
  6. <!--#include file="include/wmsServerHash.inc"-->
  7. <!--#include file="include/wmsconnect.inc"-->
  8. <!--#include file="include/wmsPageBanner.inc"-->
  9. <!--#include file="include/wmsError.inc"-->
  10. <!--#include file="include/wmsHelp.inc"-->
  11. <%
  12. '+-------------------------------------------------------------------------
  13. '
  14. '  Microsoft Windows Media
  15. '  Copyright (C) Microsoft Corporation. All rights reserved.
  16. '
  17. '  File:       PubPoint_Add.asp
  18. '
  19. '  Contents:
  20. '
  21. '--------------------------------------------------------------------------
  22.  
  23. BeginErrorHandling 
  24. ConnectToServer
  25.  
  26. Dim bError
  27. Dim dwPPType
  28. Dim strPubPointName
  29. Dim strPubPointPath
  30. Dim bNameTaken
  31. Dim i
  32. Dim pp
  33. Dim dwTabIndex
  34.  
  35. dwTabIndex = 1
  36. bError = FALSE
  37. bNameTaken = FALSE
  38.  
  39. if( 0 = StrComp( "add", qs("op"), vbTextCompare ) ) then
  40.     On error resume next
  41.  
  42.     ' use a do-while-false structure to break out upon first error    
  43.     do
  44.         if( 0 = StrComp( "1", posting("PPType"), vbTextCompare ) ) then
  45.             dwPPType = CInt( WMS_PUBLISHING_POINT_TYPE_ON_DEMAND )
  46.         else
  47.             dwPPType = CInt( WMS_PUBLISHING_POINT_TYPE_BROADCAST )
  48.         end if
  49.  
  50.         strPubPointName = Left( SafeUnescape( trim( posting("newPPName") ) ), 250 )
  51.         if( 0 = Len( strPubPointName ) ) then
  52.             err.Raise( -1 )
  53.             err.Description = CStr( L_SPECIFYNAME_TEXT )
  54.             bError = ErrorDetected ( "Name" )
  55.             Session( "PageReloadedToDisplayError" ) = 1
  56.             exit do
  57.         end if
  58.  
  59.         if( FALSE = PPNameIsLegal( strPubPointName ) ) then 
  60.             err.Raise( -1 )
  61.             err.Description = CStr( L_INVALIDCHARSINNAME_TEXT )
  62.             bError = ErrorDetected ( "Name" )
  63.             Session( "PageReloadedToDisplayError" ) = 1
  64.             exit do
  65.         end if
  66.  
  67.         strPubPointPath = Left( SafeUnescape( trim( posting( "newPPPath" ) ) ), 250 )
  68.         if( FALSE = PPPathIsLegal( strPubPointPath ) ) then 
  69.             err.Raise( -1 )
  70.             err.Description = CStr( L_INVALIDCHARSINPATH_TEXT )
  71.             bError = ErrorDetected ( "Path" )
  72.             Session( "PageReloadedToDisplayError" ) = 1
  73.             exit do
  74.         end if
  75.         if( 0 = Len( strPubPointPath ) ) then
  76.             err.Raise( -1 )
  77.             err.Description = CStr( L_SPECIFYPATH_TEXT )
  78.             bError = ErrorDetected ( "newPPPath" )
  79.             Session( "PageReloadedToDisplayError" ) = 1
  80.             exit do
  81.         end if
  82.  
  83.         ' see if a pp by the same name already exists
  84.         i = -1
  85.         i = PPNameToIndex( g_objServer, CStr( SafeUnescape( strPubPointName ) ) )
  86.         
  87.         if( 0 <= i ) then
  88.             bAlreadyExists = TRUE
  89.             Err.Raise( -1 )
  90.             err.Description = CStr( L_PPALREADYEXISTS_TEXT )
  91.             bError = ErrorDetected ( "Name" )
  92.             Session( "PageReloadedToDisplayError" ) = 1
  93.             exit do
  94.         end if
  95.  
  96.         Set pp = g_objServer.PublishingPoints.Add( strPubPointName, dwPPType, strPubPointPath )
  97.         
  98.         if( Err.number <> 0 ) then
  99.             bError = TRUE
  100.             Session( "ErrorDescription" ) = L_FAILEDTOCREATEPP_TEXT
  101.             Session( "ErrorNumber" ) = Err.number
  102.             Session( "ErrorCulprit" ) = "Name"
  103.             exit do
  104.         end if
  105.             
  106.         pp.AllowClientsToConnect = TRUE
  107.         Err.Clear
  108.         Session( "bUpdateTreeView" ) = TRUE
  109.         Response.Redirect( "pubpoint_collection.asp?server=" & g_strQueryStringServer & "&ppID=" & pp.ID )
  110.  
  111.     Loop Until TRUE
  112.  
  113. end if
  114.  
  115. '/////////////////////////////////////////////////////////////////////
  116. Function PPNameIsLegal( strPubPointName )
  117.     PPNameIsLegal = TRUE
  118.     Dim regEx
  119.     Set regEx = New RegExp
  120.     regEx.Pattern = "/\<|\>|\\|\?|%|&|\#|\{|\}|\||\^|\[|\]|\x2A|\x22|\`|\f|\n|\r|\t|\v/gi"
  121.     regEx.IgnoreCase = TRUE
  122.     regEx.Global = TRUE
  123.     regEx.Multiline = TRUE
  124.     if( TRUE = regEx.Test( strPubPointName ) ) then
  125.         PPNameIsLegal = FALSE
  126.         Exit Function
  127.     end if
  128. End Function
  129.  
  130. '/////////////////////////////////////////////////////////////////////
  131. Function PPPathIsLegal( strPubPointPath )
  132.     PPPathIsLegal = TRUE
  133.     Dim regEx
  134.     Set regEx = New RegExp
  135.     regEx.Pattern = "/;|\^|\'|\<|\>|\`|\f|\n|\r/gi"
  136.     regEx.IgnoreCase = TRUE
  137.     regEx.Global = TRUE
  138.     regEx.Multiline = TRUE
  139.     if( TRUE = regEx.Test( strPubPointPath ) ) then
  140.         PPPathIsLegal = FALSE
  141.         Exit Function
  142.     end if
  143. End Function
  144.  
  145. WriteHTMLHeader( Server.HTMLEncode( L_ADDAPUBLISHINGPOINT_TEXT ) )
  146. %><link rel="stylesheet" type="text/css" href="<%= Session( "cssName" ) %>">
  147. <%
  148. sub IsSelected( dwItem )
  149.     if( "" = posting("ContentType") ) and ( 1 = dwItem ) then
  150.         Response.Write( " selected " )
  151.     elseif( dwItem = int( posting("ContentType") ) ) then
  152.         Response.Write( " selected " )
  153.     end if
  154. end sub
  155.  
  156. %>
  157. <script language="JavaScript" src="include/WMSCommon.js"></script>
  158. <script language=javascript>
  159. <!--
  160. /*@cc_on @*/
  161. var g_bPathAlerted;
  162. var g_bPushAlerted;
  163. var g_bNameAlerted;
  164. g_bPathAlerted = false;
  165. g_bPushAlerted = false;
  166. g_bNameAlerted = false;
  167.  
  168. <% WriteCommonJSUtils %>
  169.  
  170. //////////////////////////////////////////////////////////////////////////
  171. function Cancel()
  172. {
  173.     <% jsTRY %>
  174.     document.location.replace( "pubpoint_collection.asp?server=<%= g_strQueryStringServer %>&ppID=<%= qs("ppID") %>" );
  175.     <% jsCATCH %>
  176. }
  177.  
  178. //////////////////////////////////////////////////////////////////////////
  179. function ValidatePath()
  180. {
  181.     <% jsTRY %>
  182.         var szPath;
  183.         var szName;
  184.         var bCanBeEnabled;
  185.         var bValidPath;
  186.         var bPushError = false;
  187.         
  188.         bCanBeEnabled = true;    
  189.         szPath = new String( document.mainForm.newPPPath.value );
  190.         szName = new String( document.mainForm.newPPName.value );
  191.         if( ( 0 == szPath.length ) || ( 0 == szName.length ) || ( "#ff0000" == document.mainForm.newPPName.style.color ) )
  192.         {
  193.             bCanBeEnabled = false;
  194.         }
  195.  
  196.         bValidPath = false;
  197.         var szIllegalChars = /;|\^|\'|\<|\>|\`|\f|\n|\r/gi;
  198.         if( -1 == szPath.search( szIllegalChars ) )
  199.         {
  200.             bValidPath = true;
  201.         }
  202.  
  203.         if( bValidPath )
  204.         {
  205.             if( document.mainForm.PPType[ 1 ].checked )
  206.             {
  207.                 var szPathPrefix;
  208.                 szPathPrefix = szPath.slice( 0, 5 );
  209.  
  210.                 if( szPathPrefix == "push:" )
  211.                 {
  212.                     bValidPath = false;
  213.                     bPushError = true;
  214.                 }
  215.             }
  216.         }
  217.             
  218.         if( false == bValidPath )
  219.         {
  220.             document.mainForm.newPPPath.style.color = "#ff0000";
  221.             document.mainForm.submit.disabled = true;
  222.             if( ! bPushError )
  223.             {
  224.                 window.status = "<%= L_INVALIDCHARSINPATH_TEXT %>";
  225.             }
  226.             
  227.             if( bPushError && ( false == g_bPushAlerted ) )
  228.             {
  229.                 g_bPushAlerted = true;
  230.                 window.alert( "<%= RemoveDangerousCharacters( L_ODPPSRCCHANGETOPUSH_TEXT ) %>" );
  231.                 document.mainForm.newPPPath.focus();
  232.             }
  233.             else if( ( ! bPushError ) && ( false == g_bPathAlerted ) )
  234.             {
  235.                 g_bPathAlerted = true;
  236.                 window.alert( "<%= RemoveDangerousCharacters( L_INVALIDCHARSINPATH_TEXT ) %>" );
  237.                 document.mainForm.newPPPath.focus();
  238.             }
  239.         }
  240.         else
  241.         {
  242.             document.mainForm.newPPPath.style.color = "#000000";
  243.             document.mainForm.submit.disabled = ! bCanBeEnabled;
  244.             window.status = "";
  245.         }
  246.     <% jsCATCH %>
  247. }
  248.  
  249.  
  250. //////////////////////////////////////////////////////////////////////////
  251. function ValidateName()
  252. {
  253.     <% jsTRY %>
  254.         var szPath;
  255.         var szName;
  256.         var bCanBeEnabled;
  257.         var bValidName;
  258.         var szIllegalPPNameChars;
  259.         
  260.         bCanBeEnabled = true;
  261.         szPath = new String( document.mainForm.newPPPath.value );
  262.         szName = new String( document.mainForm.newPPName.value );
  263.         if( ( 0 == szPath.length ) || ( 0 == szName.length ) || ( "#ff0000" == document.mainForm.newPPPath.style.color ) )
  264.         {
  265.             bCanBeEnabled = false;
  266.         }
  267.             
  268.         bValidName = false;
  269.         var szIllegalChars = /\<|\>|\\|\?|%|&|\#|\{|\}|\||\^|\[|\]|\`|\x2A|\x22|\f|\n|\r|\t|\v/gi;
  270.         if( -1 == szName.search( szIllegalChars ) )
  271.         {
  272.             bValidName = true;
  273.         }
  274.         
  275.         if( false == bValidName )
  276.         {
  277.             if( false == g_bNameAlerted )
  278.             {
  279.                 g_bNameAlerted = true;
  280.                 window.alert( "<%= L_INVALIDCHARSINNAME_TEXT %>" );
  281.                 document.mainForm.newPPName.focus();
  282.             }
  283.             document.mainForm.newPPName.style.color = "#ff0000";
  284.             document.mainForm.submit.disabled = true;
  285.             window.status = "<%= L_INVALIDCHARSINNAME_TEXT %>";
  286.         }
  287.         else
  288.         {
  289.             document.mainForm.newPPName.style.color = "#000000";
  290.             document.mainForm.submit.disabled = ! bCanBeEnabled;
  291.             if( "" != window.status )
  292.             {
  293.                 window.status = "";
  294.             }
  295.         }
  296.     <% jsCATCH %>
  297. }
  298. -->
  299. </script>
  300. </head>
  301. <body class="pluginbody" onLoad="JavaScript:ValidatePath();ValidateName();UpdateTreeView();document.mainForm.newPPName.focus();" oncontextmenu="JavaScript:event.cancelBubble=true;return false;">
  302. <% 
  303.  
  304. if bError then
  305.     Session( "PageReloadedToDisplayError" ) = 1
  306. end if
  307.  
  308. %>
  309. <table width="100%" class="pluginheader" height="90" cellspacing="0" cellpadding="0" border="0">
  310.     <tr>
  311.         <td colspan="2" class="pluginheadertext">
  312. <%          if( 0 = StrComp( "localhost", g_strDecodedServerName, vbTextCompare ) ) then
  313.                 g_strDecodedServerName = Application( "strLocalHostName" )
  314.             end if
  315. %>
  316.             <%= Server.HTMLEncode( g_strDecodedServerName ) %>
  317.         </td>
  318.     </tr>
  319.     <tr>
  320.         <td class="pluginheadertext">
  321.             <%= Server.HTMLEncode( L_ADDAPUBLISHINGPOINT_TEXT ) %>
  322.         </td>
  323.             <%
  324. if( FALSE = g_bSecureConnection ) then
  325. %>
  326.             <script language="JavaScript">
  327.             ShowHideSecureWarning( "img/not_secure_32.gif" );
  328.             </script><%
  329. end if
  330. %>
  331.     </tr>
  332. </table>
  333.  
  334. <form name="mainForm" method="POST" action="pubpoint_add.asp?server=<%= qs("server") %>&ppID=<%= qs("ppID") %>&op=add" AUTOCOMPLETE="OFF">
  335. <input type=hidden name="server" value="<%= g_strQueryStringServer %>">
  336. <input type=hidden name="op" value="add">
  337. <p>
  338. <table cellspacing="0" cellpadding="0" border="0">
  339.     <tr>
  340.         <td colspan=2>
  341.           <table cellspacing="0" cellpadding="0" border="0" class="propgroupbox" width="80%">
  342.             <caption align="left" class="pluginGroupHeader"><%= Server.HTMLEncode( L_TYPE_TEXT ) %></caption>
  343.             <tr>
  344.                 <td valign=bottom>
  345.                      
  346.                 </td>
  347.                 <td>
  348.                   <table cellspacing="0" cellpadding=12 border="0">
  349.                     <tr>
  350.                         <td>
  351.                           <table cellspacing="0" cellpadding="0" border="0">
  352.                             <tr>
  353.                                 <td>
  354.                                     <p>
  355.                                     <span class="helptext">
  356.                                     <%= Server.HTMLEncode( L_SELECTPPTYPE_TEXT ) %>
  357.                                     </span>
  358.                                 </td>
  359.                             </tr>
  360.                             <tr>
  361.                                 <td>
  362.                                     <input type="radio" name="PPType" value="0" ID="PPType_OD" onClick="JavaScript:ValidatePath();" tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %><% 
  363.                                     strPPType = posting( "PPType" )
  364.                                     if( ( 0 = StrComp( "0", strPPType, vbTextCompare ) ) or ( 0 = Len( strPPType ) ) )then 
  365.                                         Response.Write(" checked ")
  366.                                     end if %> ><label for="PPType_OD" class="handcursor"> <%= Server.HTMLEncode( L_BROADCAST_TEXT ) %></label>
  367.                                 </td>
  368.                             </tr>
  369.                             <tr>
  370.                                 <td>
  371.                                     <input type="radio" name="PPType" value="1" ID="PPType_BC" onClick="JavaScript:ValidatePath();" tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %><%
  372.                                     if( 0 = StrComp( "1", strPPType, vbTextCompare ) )then
  373.                                         Response.Write(" checked ")
  374.                                     end if %> ><label for="PPType_BC" class="handcursor"> <%= Server.HTMLEncode( L_ONDASHDEMAND_TEXT ) %></label>
  375.                                 </td>
  376.                             </tr>
  377.                           </table>
  378.                         </td>
  379.                     </tr>
  380.                   </table>
  381.                 </td>
  382.             </tr>
  383.           </table>
  384.         </td>
  385.     </tr>
  386.     <tr>
  387.         <td>
  388.             <br>
  389.         </td>
  390.     </tr>
  391.     <tr>
  392.         <td colspan=2>
  393.           <table cellspacing="0" cellpadding="0" border="0" class="propgroupbox" width="80%">
  394.             <caption align="left" class="pluginGroupHeader"><% RenderWithErrorCheck Server.HTMLEncode( L_NAME_TEXT ), "Name" %></caption>
  395.             <tr>
  396.                 <td valign=bottom>
  397.                      
  398.                 </td>
  399.                 <td>
  400.                   <table cellspacing="0" cellpadding=12 border="0">
  401.                     <tr>
  402.                         <td>
  403.                           <table cellspacing="0" cellpadding="0" border="0">
  404.                             <tr>
  405.                                 <td>
  406.                                   <table width=100% cellspacing="0" cellpadding="0" border="0">
  407.                                     <tr>
  408.                                         <td align=left>
  409.                                             <input 
  410.                                                 type="edit" 
  411.                                                 name="newPPName" <%
  412.                                              if( brMSIE = g_dwBrowserType ) then %>
  413.                                                 size="60" <%
  414.                                              else %>
  415.                                                 size="42" <%
  416.                                              end if %>
  417.                                                 maxlength="<%= Server.HTMLEncode( MAX_LEN_PPNAME ) %>"
  418.                                                 tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> 
  419.                                                 value="<%
  420.                                             if( 0 < Len( trim( posting("newPPName") ) ) ) then 
  421.                                                 Response.Write( trim( Server.HTMLEncode( posting("newPPName") ) ) )
  422.                                             end if %>"
  423.                                                 onKeyUp="JavaScript:ValidateName();"
  424.                                                 onKeyDown="JavaScript:ValidateName();"
  425.                                                 onChange="JavaScript:ValidateName();"
  426.                                                 onPaste="JavaScript:ValidateName();"
  427.                                                 AUTOCOMPLETE="OFF"
  428.                                             >
  429.                                         </td>
  430.                                     </tr>
  431.                                   </table>
  432.                                 </td>
  433.                             </tr>
  434.                           </table>
  435.                         </td>
  436.                     </tr>
  437.                   </table>
  438.                 </td>
  439.             </tr>
  440.           </table>
  441.         </td>
  442.     </tr>
  443.     <tr>
  444.         <td>
  445.             <br>
  446.         </td>
  447.     </tr>
  448.     <tr>
  449.         <td colspan=2>
  450.           <table cellspacing="0" cellpadding="0" border="0" class="propgroupbox">
  451.             <caption align="left" class="pluginGroupHeader"><%= Server.HTMLEncode( L_CONTENTTYPEANDPATH_TEXT ) %></caption>
  452.             <tr>
  453.                 <td>
  454.                      
  455.                 </td>
  456.                 <td>
  457.                     <table cellspacing="0" cellpadding="0" border="0">
  458.                     <tr>
  459.                         <td>
  460.                             <p>
  461.                             <span ID="SamplePath" class="defaultcursor">
  462.                             <% RenderWithErrorCheck Server.HTMLEncode( L_LOCATIONCOLON_TEXT ), newPPPath %>
  463.                             </span>
  464.                         </td>
  465.                     </tr>
  466.                     <tr>
  467.                         <td>
  468.                             <input 
  469.                                 type="edit" 
  470.                                 name="newPPPath"
  471.                                 tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> <%
  472.                               if( brMSIE = g_dwBrowserType ) then %>
  473.                                 size="72" <%
  474.                               else %>
  475.                                 size="50" <%
  476.                               end if %>
  477.                                 maxlength="<%= Server.HTMLEncode( MAX_PATH ) %>"
  478.                                 onKeyUp="JavaScript:ValidatePath();"
  479.                                 onKeyDown="JavaScript:ValidatePath();"
  480.                                 onChange="JavaScript:ValidatePath();"
  481.                                 onPaste="JavaScript:ValidatePath();"
  482.                                 value="<%= RemoveDangerousCharacters( posting( "newPPPath" ) ) %>" 
  483.                                 AUTOCOMPLETE="OFF">
  484.                         </td>
  485.                     </tr>
  486.                     <tr>
  487.                         <td>
  488.                             <br> 
  489.                             <div class="defaultcursor">
  490.                             <%= Server.HTMLEncode( L_EXAMPLEPATHS_TEXT ) %>
  491.                             </div>
  492.                         </td>
  493.                     </tr>
  494.     <tr>
  495.         <td>
  496.             <table class="pluginGroupBox" border=1 cellpadding=1 cellspacing="0">
  497.                 <tr>
  498.                     <th class="small"><%= Server.HTMLEncode( L_ADDNEWPPTYPE_TEXT ) %></th>
  499.                     <th class="small"><%= Server.HTMLEncode( L_ADDNEWPPDESC_TEXT ) %></th>
  500.                     <th class="small"><%= Server.HTMLEncode( L_ADDNEWPPEX_TEXT ) %></th>
  501.                 </tr>
  502.                 <tr>
  503.                     <td><%= Server.HTMLEncode( L_ADDNEWPPTYPE1_TEXT ) %></td>
  504.                     <td><%= Server.HTMLEncode( L_ADDNEWPPDESC1_TEXT ) %></td>
  505.                     <td><%= Server.HTMLEncode( L_ADDNEWPPEX1_TEXT ) %></td>
  506.                 </tr>
  507.                 <tr>
  508.                     <td><%= Server.HTMLEncode( L_ADDNEWPPTYPE2_TEXT ) %></td>
  509.                     <td><%= Server.HTMLEncode( L_ADDNEWPPDESC2_TEXT ) %></td>
  510.                     <td><%= Server.HTMLEncode( L_ADDNEWPPEX2_TEXT ) %></td>
  511.                 </tr>
  512.                 <tr>
  513.                     <td><%= Server.HTMLEncode( L_ADDNEWPPTYPE3_TEXT ) %></td>
  514.                     <td><%= Server.HTMLEncode( L_ADDNEWPPDESC3_TEXT ) %></td>
  515.                     <td><%= Server.HTMLEncode( L_ADDNEWPPEX3_TEXT ) %></td>
  516.                 </tr>
  517.                 <tr>
  518.                     <td><%= Server.HTMLEncode( L_ADDNEWPPTYPE4_TEXT ) %></td>
  519.                     <td><%= Server.HTMLEncode( L_ADDNEWPPDESC4_TEXT ) %></td>
  520.                     <td><%= Server.HTMLEncode( L_ADDNEWPPEX4_TEXT ) %></td>
  521.                 </tr>
  522.                 <tr>
  523.                     <td><%= Server.HTMLEncode( L_ADDNEWPPTYPE5_TEXT ) %></td>
  524.                     <td><%= Server.HTMLEncode( L_ADDNEWPPDESC5_TEXT ) %></td>
  525.                     <td><%= Server.HTMLEncode( L_ADDNEWPPEX5_TEXT ) %></td>
  526.                 </tr>
  527.                 <tr>
  528.                     <td><%= Server.HTMLEncode( L_ADDNEWPPTYPE6_TEXT ) %></td>
  529.                     <td><%= Server.HTMLEncode( L_ADDNEWPPDESC6_TEXT ) %></td>
  530.                     <td><%= Server.HTMLEncode( L_ADDNEWPPEX6_TEXT ) %></td>
  531.                 </tr>
  532.                 <tr>
  533.                     <td><%= Server.HTMLEncode( L_ADDNEWPPTYPE7_TEXT ) %></td>
  534.                     <td><%= Server.HTMLEncode( L_ADDNEWPPDESC7_TEXT ) %></td>
  535.                     <td><%= Server.HTMLEncode( L_ADDNEWPPEX7_TEXT ) %></td>
  536.                 </tr>
  537.                 <tr>
  538.                     <td><%= Server.HTMLEncode( L_ADDNEWPPTYPE8_TEXT ) %></td>
  539.                     <td><%= Server.HTMLEncode( L_ADDNEWPPDESC8_TEXT ) %></td>
  540.                     <td><%= Server.HTMLEncode( L_ADDNEWPPEX8_TEXT ) %></td>
  541.                 </tr>
  542.             </table>
  543.         </td>
  544.     </tr>
  545.                     </table>
  546.                 </td>
  547.             </tr>
  548.             </table>
  549.         </td>
  550.     </tr>
  551.     </table>
  552.     </td>
  553.     </tr>
  554.     </table>
  555.     <tr>
  556.         <td>
  557.              <br>
  558.         </td>
  559.     </tr>
  560.     <tr>
  561.     <td align="right" colspan="2" colspan=2>
  562.         <input type=submit id="ok" name="submit" value="<%= Server.HTMLEncode( L_OKAYBUTTON_TEXT ) %>" tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> >
  563.         <input type=button id="cancel" name="cancel" value="<%= Server.HTMLEncode( L_CANCELBUTTONSPACED_TEXT ) %>" tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>  OnClick="JavaScript:Cancel();">
  564.         <input type=button id="help" name="help" value="<%= Server.HTMLEncode( L_HELPBUTTONSPACED_TEXT ) %>" tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>  OnClick="JavaScript:DoHelp( '<%= H_PPLEVEL %>','<%= H_PPADDTOPIC %>' );">
  565.     </td> 
  566. </tr>
  567. </table>
  568. </form>
  569. <% 
  570. AlertUserWithPopupErrorDialog
  571. 'OnErrorGoBack
  572. DrawCopyrightInfo
  573. DrawStdFooter
  574. %>
  575. </body>
  576. </html>
  577. <% 
  578. LatchCurrentPage "pubpoints/pubpoint_add.asp", qs
  579. EndErrorHandling "pubpoint_add.asp" 
  580.  
  581. WMSServerHashASPCleanup
  582. WMSConnectASPCleanup
  583. %>
  584.